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Some Identities Concerning the Function 
subst [x; y; z] • 

Che purpose of this paper is two-fold; l) to explore the use 
of recursion induction in proving theorems about functions of 
symbolic expressions, in particular 

2) to investigate thoroughly the algebraic properties of the LISP 
function subst [x; y; z] by this method. The main result is 
embodied in Theorem 8. 

For reference, the function is defined by: 

subst [x; y; z] -' [atom[z] -♦ [eq[z;y] -*• x; T-*z]; T -* cons 

[subst[x;yjcar[z]]jsubst[x;y;cdr[z]]]]; 

where x and z are S-expressions, and y is an atomic symbol. 
We will make the agreement that ::fy/ A/null [y] . 

In the work of this paper, dots ( ) will often appear in 

the functional expressions. Such dots will represent superfla&ae 
material only; e.g. if we know atom [z] is true we may write: 
subst[x;y;z] « [atom[z] -*• [eq[z;y] -* x; T-fe]; T -* ]. 

Reference will be made to theorems proved on page 25 of Memo 31 

A Basi3 for a Mathematical Theory of Computation by John McCarthy, 
as well as to expressions for car[x*y], cdr[x*y], and similar 
expressions on that page. 

We start by proving five lemmas: 
Lemma 1: If *j atom [uj, then car[subst[x;a;u]] - subst[x;a;car[u] J 
and cdr[subst[x;a;uj] » subst[x;a;cdr[u] ]. 

Proof: car[subst[x;a;u]j 

- car[atom[u] -►...; « -* cons[subst[x; a; car[u]]; subst[x;a;cdr[uj J]J 
which, employing the hypothesis, reduces to 

- car[cons[subst[x;a;car[u]];subst[x;a;cdr[u]]]] 

- subst[x;a;car[uj J. 

A similar computation establishes the equality for cdr[subst[x;a;uj] . 

^ W- Q. E. D. 
Lemma 2: If A/atom[u] (which insures the existence of both forms), 
then 3ub3t[x;a;cons[car[u];cdr[u]]] - 

cons[subst[x; a; car[uj ] ; subst[x; a; cdr[u] ] J . 
Proof: The left side equals subst[x;a;u] 

while the right side equals (by Lemma 1) 
cons[car[subst[x;a;u]]; cdr[subst[x; a; u]]] 
» subst[x;a;u] 

Q. E. D. 
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Leninia_3 L_ If v atom [u] (which insures the existence of both 
forms), then sub3t[x;ajcons[subat.[y;b;car[u] ] ;subst[y;b;cdr[u] ] ] ] 
- const subs t[x;a;subst[y;b; car [u]]];sub3t[x;a;sub3t[y;b;cdr[u]] ^' 
Proof: Since by hypothesis a/ atomfu], then [ /^atom[sub3t[y;b;u] ] 
follows immediately from the definition of the function subst[x;y;z], 
since */atoro{oons[a;b]] - T is a basic LISP identity. Thus, applying 
Lemmal}, we may let subst[y;b;u] take the place of u in the proof of 
Lemma 2, and Lemma 3 follows 'directly, using Lemma 1 once again. 

Q. E. D. 

Lemma 4 :_ . substtx; a: NIL] -NIL 

Proof: substtx; a; NIL] - [atom[NIL] -* leq[NIL;a] ~ x; T -+ NIL];T — . ..] 
and since /ueqtajNIL] by convention, this reduces to NIL. 

Q. E. L. 
Lemma 5: If ^atom[u], then car[u] has meaning, and sub3t[x;a; 
cons [car[u]; NIL]] » cons[subst[x;a;car[u]];NIL] . 
Proof: The leffeHhand side equals: , 

t atom[ const car [u]; NIL] ] -*■ ...; T -+ constsubsttx;a; 

car t cons t cart u] ; NIL] ] ] ; substtx; a; cdr t cons [ car[u] ; NIL] ] ] ] ] 

- cons t subs t tx; a; cartu]]; substtx; a; NIL]] 

- constsubsttx;ajcar[u]];NIL] by Lemma 4. 

Q. E. 1. 
We now prove a trivial theorem: 
Theorem 1: substta;a;u] - u u 
Proof: substta;a;u] - • f% ■ 
tatomfu] -* [eq[u;a] ■* a; T "* u]; T -* cona[subst[a>a>oar[u]]; 

substta}a;cdrtu] ] ]J 
Employing the principle of recursion induction, we consider 
fta;u] m [atomtu] -♦ teq[u;a] -* a; T"*u]j T ■* cons[f [ajcartu] ]; 

fta;cdrtu]]]] 

We now note that u may be written 

u « tatomtu] ■-* [eq[u;a] "* a; T -* u]; T «-*■ const car[u]; cdr [u]] ] 
Therefore both sides of the equation satisfy the equation fta-,u]. 

Q. E. D. 

Some comment should be made noting that ftaju] indeed converges, 
but other than 1 s 6 noting, such comments will be postponed. 

We now formally define the condition that there be no occurrences 
of the atomic symbol a, (<vnullta] ),, in the S-expre3sion y by the 

formula 
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free[a;y] « [atom[y] -*'veq[y;a]; T -+ free [a;car[y] ] A frce[a; 

cdr[y]]]. 
The main reason for introducing this concept is embodied in the 
following lemma: 

Lemma 6: If free [ajy], then subst[x;a;y] « y. 
Proof: subst[x;a;y] «■ [atom[y] -* [eq[y;a] ~* x; T~+y]; T "^ 

cons[subst[x;a;car[y] ] ;subst[x;a;cdr[y] ] ]] 

« [atom[y] -+ y; T ~* consTsubst[x;a;car[y] ];subst[x;ajcdr[y] ] ] ] 

employing the hypothesis. 

Now y » [atom[y] -* yj T •* cons[car[y] ;cdr[y] ] ] • 
Both equations satisfy the functional equation 

f[x;ajy] - [atom[yJ — y; T ~+ cons[f [x;a;car[y] ] ;f [x;ajcdr[y] ] ] ] • 

Q. E. D. 
The next theorem states that, with certain restrictions, the order 
of substitution is irrelevant. 
Theorem 2: If *v&q[a;b],free[a;y], and free[b;x], then 



subst[xja;subst[y;b;u]j « subst[y;b;subst[x;a;u] ] . 
Proof: subst[x;a;subst[y;bju] ] 
•m subst[x;a; [atom[u] ""+ [eq[u;b] -* y; T ~+ u]^T -+ cons[subst[y;b;car[u] ]; 

subst[y;b;cdr[u] ] ]]] 
« [atom[u] — [eq[ujbj -+ subst[x;ajy]; W~+ subst[x;a;u] ];' <jj -+ 

s ubs t [x; a; cons [ subs t [yjb; car [u]]; subs t[y;b;cdr[u] ] J]] v 
» [atom[u] -* [eq[u;b] ~+ y; T -* subst[x;a;uj ]; T ~* , 

■^ «; cons [ subs t [ x; a; subs t[y;bj car [u] ] ];subst[x;a;subst[y;b;cdr[u]] ] ]] 
» [atom[u] ~* [eq[u;b] ~* y; T ~+ [atpm[u] -* [eq[u;aj ~* x; T -* u];T -*. •• J];T 
const subs t [xj aj subs t [y ; b; car [ u] ]] jsubst[xj a; subs t[y;b;cdr [u]] ]]] 
« [atom[uj -* [eq[u;b]? -* yj T -* [eq£u;a] -♦ xj T -+ u]]; T ~+ 

cons [ subs t[x; a; subs t[y;bjcar[u] ]];subst[x;a;subst[y;bjcdr[u] ] ] ] J 
and since the "liy^po thesis <Veq[ a; b] implies the conditions. eq[u;bj and 
eq[u;a] are mutually exclusive, this can be written as: 
« [atom[u] -* [eq[ujq] -+ xj T ~+ [eq[ujb] -* y; T -*&]]; T -* 

cons [subst[x;a;subst[y;b;car[u] ]]; subs t[x;a; subs t[yjb;cdr [u] ]]] ] 
but [eq[u;b] ~*y; T -* u] is just the expression for 
subst[y;b;u3 given that u is atomic, so we have finally: 
] * [atom[u] r* [eq[u;a] ^ Oeq[u;a] -* x; T ■-* subst[y;b;u] j; T *~* 



cons[subst[x;a;subst[y;b;car[u]]];sub3t[x;4;substCy;b;odr[u]3]]3 



^"employing Lemmas 3 and f6 
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Applying the same procedure to the right side of the equation, 
we find: 

• subst[y;b;subst[xja;u] ] » 
» [atom[u] -+ [eq[u;a] . •"* x; T -+ subst[y;b;u] ]; T ""* 

cons[sub3t[y;b;3ub3t[xjajcar[u] ]];£jub3t[y;b;3ubst[x;a;cdr[u3 ] ]] ] 
as in the first three steps of this proof* Again we have 
made use of Lemmas 3 and 6, 

Clearly then, both sides of the equation satisfy the functional 
equation: 

f[a;b;x;y;u] « [atomtuj -* [eq[u;a] ' "■+ x; T ~+ subst[y;bju] ]; T *"* 
cons[f[a;b;x;y;car[u3];f[a;b;x;y;cdr[u]]]] 
and the principle of recursion induction yields the identity. v 
■'■•^t Q« E. D. Theorem 2 i 

••• ., Z 

Our next result states that in a certain sense, the operation 
of substitution is transitive. 
Theorem 3: If free£a;u], then 

subst[x;a;subst[a;y;u]] - subst[x;y;u] 
Proof: subst[x;a;subst[a|yra-i3 ■ 
subst[x;a; [atom[u] ■"■♦• [eq[a;y3"' , *&; T-»u]; T ~* cons[subst[a;yjcar[u]]; 

w ; subst[a;y;cdr[u]]]]] 

» [atom[u] -**- [eq[u;y] -*■ subst[x$a;aJ;T-'subst[x;a;u]]; T "*. 

subst[x;a;cons[subst[a;y;car[u] ];subst[a;y;cdr[u] ]] ]] 
Now subst[x;a;a] - [atom[a] •"♦" [eq[a;a] -+ x; T "** ...]...] 

«■ x so we have, using this and Lemma 6, 
which is applicable by our hypotheses: 
» [atom[u] -*■ [eq[u;y] -♦ xj T ■* u]; T "* 

cons[subst[x;ajsub3t[a;y;car[u]]];subst[x;a;sub3t[a;y;cdr[u]]]]] 
(using Lemma 3 at the end) 
This form suggests considering the functional equation 
^[x;a;y;u] - [atom[u] "* [eq[u;y] -* x; T -+ u]; T -* 
consCfCx;a;y;carCu]3;f[x;a;y;cdr[u] ]]] 

Now subst[x;y;u] - [atomfuj -* [eq[u;y] -» x; T -* ul; T ~* 

cons [subst[x;y; car [u]];subst[x;y;cdr[u] ]]] 
so it also satisfies the functional equation, thus proving the desired 
identity. _- 

Q. E. D. 
Corollary: If free[a;u], then 

subst[y;ajsubst[a;y;uj] - u , an intuitively obvious identity. 
Proof: By Theorem 3, with eq[xjy] 
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subst[y;a;subsfc[a;y;.u]] - subst[y;y;u] 

- u (by Theorem l) Q. E. D. 
In the case of the corollary, it ia not difficult to compute an 
identity without the hypothesis. In other words, the corollary could 
be proved as a special case of 

T^BSI^HiAi subst[y;a;subst[a;y;u]] - subst[y;a;u] 
for the corollary follows directly from Theorem 4 and Lemma 6. 
/To prove Theorem 4: 
To_£rovj_The^em_Jlj_ 
subst[y;a;subst[a;y;u]] « 

- subst[y;a;[a^om[u] - [eq[ujy] - a;T - u]; T - cons [subs t[ajy; car [u] ] ; 

3ubst[a;y;cdr[u]]]]J 

- [atom[u] - [eq[u;y] - subst[y;a;a]; T - subst[y;aju] ]; T - 

subst[y;a;cons[subst[a;y;car[u]];subst[a;yjcdr[u]J]]j 
and since subst[y;a;a] - y, as noted in the proof of Theorem 3, we have 

- CatomCu] — Ieqlu; y] - y; T - [atom[u] - [eq[u;a] ~y; T-u];T -. . ,)]; T- 

subst[y;a;cons[subst[a;y;car[u]];subst[a;y;cdr[u]]]]] 

- [atom[u] -* [eq[u;y] -* u; T -+ [eq[u;a] -" y; T -* u]]; T -* 

cons[subst[y;a;subst[a;y;car[uJ]];sub3t[y;a;sub3t[a;y;cdr[u]]]]] 
(by Lemma 3) 

- [atom[u] -+ [eq[u;a] -* y; T -* u]; T ~* 

cons[subst[y;ajsubst[a;yjcar[u]]];3ubst[y;a;subst[a;y;cdr[u]]]]] 
Now subst[y;a;u] - [atomfu] - [eq[u;aj - y; T-*u];T-cons[subst[y;a;car[u] ]; 

subst[y;a;cdr[u]] J] 
so that both forms satisfy 

f[ajy;u3 = [atom[u] - [eq[u;a] -♦ y; T -* u]; T - cons[f [a;y;car[u]]; 

f[a;y;cdr[u]J]] 

Q. E. D. 
At this point we introduce the concatenation x*y of two lists x and y, 
as defined on page 25 of the report. mentioned earlier. For convenience, 
the definition and two identities from that paper are reproduced below: 

x*y =[null[x]-V; T -* cons[car[x];cdr[x]*y] ] . 

car[x*y] « [null[x] ~*car[y]; T-*car[x]J 

cdr[x*y] = [null[x] ~*cdr[y];T -* cdr[x]*y] 

In the work done so far, we have always made the tacit assumption 
that our expressions are well-defined. For example; whenever 
subst[x;y;£] has appeared in the statement of a theorem, y has 
automatically been assumed to be atomic. (Also we have made the blanket 
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assumption that^>null[y] . ) Since the concatenation is. only defined 

for true lists, we will make similar tacit assumptions. For 

instance, in the statement of the next theorem u and v are 

automatically assumed to be true lists. 

?fi§iL^HL^Li_ sub3t[x;a;u]* subst[x;a;v] » 3ubst[x;a; u*v] 

In words, the operation of substitution is distributive over 

concatenation. 

Proof: subst[x;a;u]*3ubst[xjajv] 

» [null[subst[x;a;u] ] -+ subst[x;a; v]; T -"+ cons[car[subst[x;a;u] ]; 

cdr[subst[x;aju] ] *subst[x;a; v] ] ] 
« Cnull[atom[u] -* [eq[uja] ""+ x; T~*u]; T ~* cons[subst[x;a; car[u] ] ; 
subst[x;ajcdr[u] ]] ] -♦* subst[x;ajv]j T ~* cons [car [ 
subst[x;a;u] ];cdr[subst[x;aju]]*sub3t[xja;v] ] ] 
- [atom[u] — ► [eq[u;a] -► [....]; T -* [null[u] -* subst[x;a; v] ; T ~* 

1 cons[car[subst[x;a;u] ];cdr[subst[x;a;u] ] *subst[x;a; vj ] ] ]; 
*T ~+ [nuIl[cons[subst[x;a;car[u] ];subst[x;a;cdr[u] ] ] ] -+ subst[x;a; v]; 
T -* ^ons[car[3ubst[x;aju]]jcdr[subst[xja;u]]*subst[x;a;v]]3] 
Now noting that 1) for true lists atom[u] implies null[u] 

2) null[u] implies by convention ^v/eq[u;a] 
3) ' ^vnull[u] implies/v/null[cons[subst[x;a;car[u] ]; 

subst[xja; cdr[u] ] ] ] 

(perhaps 3) is too obvious to notel) 
j the above awesome expression reduces to: 
«-[null[u] ~* subst[x;a;v]; T ~* cons[car[subst[x;a;u] ]; 

cdr[subst[x;a;u] ]*subst[x;a;v] ] ] 
and applying Lemma 1, again remembering Ay null [u] is equivalent to 
*vatom[u] for true lists; 
» [null[u] -* , subst[x;a;v];- T ~* cons[subst[x;a;car[u] ] ; 

subst[x;a;cdr[u] ] *subst[xja;v]j ] 
This suggests the functional equation 
ftx;a;u;v] - [null[u] -+ subst[x;a;vj; T ~+ oons[subst[x;a;car[u] ];f [x;a;cdr[u]j 

fCxjajcdrfuj ; v]]] 
Now examining subst[xja;u*v] 
- subst[x;a;[null[u] -+ v; T ■"♦" cons[car[u];cdr[u]*vt]] 
■ [null[u] -*• subst[x;a;v]; T ■* sub3t[x;'a;cons(car[u];cdr[uJ*v]]] 
but in the case a, null Cub car [u] - car[u«v] ' 

cdr[u]*v » cdr[u*v] 
so we have 

= [null[uj ~+ substfx*a* vl • T -+• o.-,-u^4.r r 

3uu^Lx,a,vj, T -aub3tU;a;con3[car[u*v];cdr[u*v]]]l 



' ■ *» •*v v « » » »i» « l » » wi ,i i i m-Htkim<* 
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but In the ca3e a/ null[u], car[u] « car[u*v] . 

cdr[u]*v » cdr[u*v] 
so we have 
» [null[u] -*■ 3ubst[x;a;v]; T -" ■subsb[x;a;cons[car[u*v]; cdr[u*v]]]] 

and since A^null[u] implies f\J atom [u*vj; Lemma 2 yield3 
- [null[u] -" subst[x;a;v]; T -* cons[subst[x;a;car[u*v] ]; 

subst[x;a;cdr[u*v]]]] 
or = [null[u] -*■ subst[x;a;v]; T -" cons6sub3t[x;a;car[u] ]; 

subst[x;a;cdr[uj*v]]] 
which also satisfies the equation f[x;a;u;v] 

Q. E. D. Theorem ~ 

Theorem 6: subst[x;a;rev[u] ] - rev[sub3t[x;a;u] ] „ 

where rev[u] is the function, whose domain is again true lists, 
defined on page 26 of the previously mentioned paper by 
rev[uj « Inull[u] -"NIL; T -" rev[cdr[u] ]* cons [car[u]; NIL]] 
Proof: subst[x;a;rev[uj] 

« subst[x;aTfnull[u] -*■ NIL; T -* rev[cdr[u] ]*cons[car[u] ;NIL] ] ] 
•- [null[u] -" subst[x;a;NIL]; T -+ subst[x;a;rev[car[u]]*cons[car[u];NIL] ] j 

- (by Lemma 4 and Theorem 5) '[null[u] -+ NIL; T -" 

subst[x;a;rev[cdr[u]]]*subst[x;a;cons[car[u];NIL]]] 

- (by Lemma 5) [null[u] -"NIL; T -" subst[x;a;rev[cdr[u] ]]* 

cons[subst[x;a;car[u]];NIL]] 
Looking now at rev[sub3t[x;a;u] ] 

- [null[subst[x;a;u]] -"NIL; T -" rev[cdr[subst[x;a;u]]]* 

cons[car[3ubst[x;a;u]];NIL]] 
which by reasoning identical to that presented in great detail in the 
proof of Theorem 5 is equivalent to: 

- [null[u] -"NIL; T -" rev[subst[x;a;cdr[u] ] ] *cons[ 

subs t[x; a; car[u] ] ; NIL] J 
(using also Lemma 1) 

Both expressions under consideration are then solutions of 
the functional equation 
f[x;a;a] - [null[u] -" NIL; T -" f [x;a;cdr[u] ]*cons[subst[x;a;car[u] J; NIL] ] 

E * r# Theorem 6 
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We now turn to the second major part of this paper. Having 
discovered the" algebraic properties of subst[x;y;z], we now wish to 
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undertake an investigation on a slightly dif Parent level. In particular, 
we will consider, the behavior of subst[x;y;z] on operations which are 
distributive over concatenation. 

Firstly, the set of functions' of true li3ts which are 
distributive over concatenation is non-empty. 

Consider the function defined by: 
sq[u] » Ihull[u] -"NIL; T -* cons [car [u]; cons [car[u]; NIL]]* sq[cc.r[u] ] ] 

sq[u] might best be described by an oxa'rftple: 

sq[ (A, (B,C),C) ]-<A,A, (B,C), (B,C),C,C) , 
LcnmaJJr If a/ null [u], then car[sq[u]] - car[u]. 
Proof: car[sq[u]] 

- car[null[u] -+ NIL; T -+ cons [car [u] ; cons [ car [u]; NIL] ]* sq[cdr[u]]] 

- car[cons[car[u]; cons£car[u];NIL] ]* sq[cdr[u]]] 

'• - [.null [ cons [ ]]-*...[]; T -* car[ cons [car[u]; cons [ car [u]; NIL] ]] ] 

= car[u] 

Le ; Q- E - D - 

IgmaJ$i If /V-Jj«a»L[u], then cdr[sq[u]] = cons[car[u];NIL]*sq[cdr[u] ] . 
/Proof: cdr[sq[u]] 
' = cdr[ null [u] -+ NIL; T -* cons[car[u] j cons [ car [ u] ; NIL] ] *sq£cdr[u] ] ] 

« cdr[cons[car[u];cons[car[u];NIL]]* sq[cdr[u]]] 
. . - [null[cons[...]] -...J; T - cdr[cons[car[u];cons[car[u];NIL] ] ] * 

sq[cdr[u]] ] 

» cons[car[u];NIL]*sq[cdr[u]] Q« E - D » 

Lemma 9: ' sq[cons[u; v]] - cons[u; cons [u; NIL] ]*sq[v] 
Proof: sq[cons[u;v]] 

= [null[cons[u,v]] -* ...; T -•" const car[ cons [u;v] ]; cons [car[ cons [u,v] ]; NIL]] 

*sq[cdr[cons[u;v]]]] 

- » cons [ u; cons [u; NIL]]* sq[v] Q. E.D. 

Before proceeding, we note that Theorem 11 of the previously mentioned 

paper of McCarthy proves the -associativity of the operation of concatenation, 

and therefore the notation x * y * z introduces no ambiguity. 

Theorem ?: sqtu*v] = sqtu]* sq[v] 

Proof: ' : 

sq[u*v] ».sq[null[u] -* vj T -+ cons [cart u] ;cdr£u] *v] ] 

= [null[u] — sqtv]; T ~* sq[cons[car[u];cdr[u]*v] ] ] 

- (by Lemma 9) 1 ' [null[u] -*sq[v]; T -* 

cons [ car[ u]; cons [car[u]; NIL]]* sq[cdr[u]*v]] 
and 3q[u]*sq[v] 

- [null[sq[u]] -sq[v]; T - eons[car[sq[u] ];cdr[sq[u] ] * 3q [ v ] ] ] 



s 
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= [ null [ null [u] -+ NIL; T "•■ cons [.-..] ] ~*sq[v]j T ""* con3[car[u] ; 

cons t cart u]; NIL]* sqtcdrtu]] * sq[v]]] 

by Lemmas J and 8; and now 3ince null [ cons [ . . . ] ] - F, this 

reduces to 

= [null[u] ~*sq[v]j T ~* cons[car[u];cons[car[u];NIL]* sqtcdrtu] ] *sq[v] ]] 

To be precise, we need a lemma: 

Lemma J. 0_: If ~ null [u], then oons[x;u*v] - cons[x;u]*v. 

Proof: cons[x;u]*v 

= [null[cons[x;uj] ""*".. J; T ""♦" cons [cartoons [xju] ];cdrt cons [x;u] ] *v] J 

■ cons[x;u*v] 

^ *•• ^'Lemma 10 

Applying Lemma 10 in the proof of Theorem 7, we obtain: ,,. ^ 

sq[u]*sq[v] 

- [null[u] -*sq[v]; T -* cons [car[uj; cons [ car [u]; NIL] ] * 

sq[cdr[u]]*sq[v]] 
and both forms satisfy the equation 
f[u;v] . Xnull[u] -* sq[v]; T -* cons [car[u]j const car [u]; NIL] ] * 

3?tcdrtu];v]] .**- .• -^ 
"Tp Q. E. D. Theorem j 

Thus the function sq[u] is distributive over concatenation. 

Instead of proving directly that substtx;a;sqtu]] « sqEsubsttx;a;u] ], 
we will £rove the following more general result: 

Theorem 6: If f is a function whose domain and range are true lists, 
with the equation defining f containing no "constants," such that 
f[u*v3 - ftu]*ftv], and such that 
/\y[null[f[u]]A/vnull[u]], then 

substtxja;f tu]] - f tsubst[x;a;u] ] . 
(The assumption that the equation defining f contains no constants is 
discussed after the proof of the Theorem. It is imprecisely stated and 
undoubtedly open to criticism. Also, it is a hypothesis of a different 
nature than the others, for it is not used explicitly in the proof but 
rather to emphasize the exclusion of situations such as the one that 
will be discussed later in this paper.) 

Proof: We first list five facts, 3ome of which have been noted 
earlier, to which we will refer in the course of this proof: 

a)/vnullt&a] is always assumed, by our convention about substtx;a;u] . 



- 10 - 

b) For true lists, atomfu] implies null[u]. 

o) With the hypotheses of thi3 Theorem, we actually have the 

situation null[f[u]] if and only if null [u] . The case null[f[u]] 
only if null[u] is assumed directly; the converse follows from the 
distrlbutlvity of f over concatenation, for if null[u], then 
f[u] == f[NIL] - ftNIL*NIL] (since NIL*u - u follow immediately from 
the definition of concatenation) - f[NIL] * f[NIL] - ftu]*f[u], and 
this can only be true if we have null[f[u]). Therefore we freely 
substitute null[u] for null[f[u]], and vice versa. 

d.) If~nulltu], then u « oonaCcar[u];NIL]*cdr[u] . This Is so 

because cons [cartu]; NIL] *cdr[u] 

» [null[cons[...]J -♦ ...; T *"*• cons [cartoons [cartu] ; NIL] ]; 

cdr[ const car tu]; NIL]]* cdrtu]]] 
» constcar[u]j NIL * cdrtu]] 

= cons tear tu]; cdrtu]] since NIL*u- > u, 

a U 

e) If/vnull[u], then<vnulltsubsttx;a;u]] (u a true list). 
This follows directly from the equation defining substtx;a;u] . 

We now begin the actual proof: substtx;a;f lu]] 
■» tatomtftu]] -* teqtftu]ja] -* x; T '-*■ f tu]]; T -+ cons[subst[x;a;car[f [u]] ] — 

sub3ttxja;cdrtf [u] ] ] ] ] 
« tnulltftu]] -*f[u]j T -♦ consCsubsttx;a;cartftu]]];sub3ttx;a;cdrtf[u]]]]] 

by b) and a); we now apply d) to the argument of f in the 
expressions cart ft u]] and cdrtftu]]. (We oan do thi3 by o), since 
we are in the case fwnull tf£u]] .), and we obtain 
» tnulltftu]] ^ftu]; T ■ "♦ cons[substtx;a;cartf toonstcartu];NlL]*cdr[u] ] ] ]; 

substtx;a;cdrtf[cons[cartu]} NIL]* cdrtu]]]]]] 
» tnulltftu]] -* ftu]; T ""*• constsubsttxja;cdrtf E cons tcarfu]; NIL] ]*f t cdrtu]] ]]; 

substtx;ajcdrtftconstcartu];NIL]]*ftcdrtu]]]]]] 
by the distrlbutlvity of f over concatenation, 

•» tnulltftu]] -♦ ftu]; T "* constsubsttx;a;cartftconstcartu];NIL]]]J; 
substtx;a;cdrtftconstcartu];NIL]]]* ftcdrtu]]]]] 
by the identities for cartx*y] and cdr[x*y], which are applicable in 
this form because^f f the hypothesis on f , which Insures that 
/v null t cons [ car tu]; NIL]] (which is certainly true) implies 
<vnulltftconstcar[u];NIL]]]. Now, applying Theorem 5, we have 
- tnulltftu]] -* ftu]; T -•' constsubsttx;a;oartftconstcartu];NIL]]]4 

substtx;a;cdrtftconstoar£u];NIL]]]]*subst[x;a;ftcdrtu]]]]] 
» tnulltu] -* f tu]; T -*• constcartsubsttx;a;f [ const car t u] ; NIL] ]] ]; 

cdrtsubsttx;a;ftcon3tcartu];NIL]]]]*substtx;a;ftcdrtu]]]]] 



by Lemma ljwe also substituted null[uj for null[f[u}3, a3 allowed by c); 

but this is now seen to be 

- [null[u] - f[u]j T -*substCx;ajf[consCcar[u];NIL]]]*3ub3t[x;a;f[cdrCu3]]] 

This last step follows because we had an expression of the form 

cons [ car [u}jcdr[u]*v3 with 'Miulltu} (by e), which was 

applicable by the hypothesis on f, as 
noted three steps previously) 
= cons[car[u*v};cdr[u*v3 3 - u»v 

The expression for subst[x;a;f [u3 3 is now in the desired form, for we 

define a functional equation by 

F[x;a;u] =* [null[u] -f[u]j T - F[x;a;cons[car[u3;NIL3 ]*F[x;a;cdr[u] ] ] . 

Now to work on f [subst[x;a;u]], which can be written 

f[atom[u] -* [eq[.uja] -*x; T- u]; T ~* . 

cons[subst[x;a;car[u33jsubst[x;a;cdr[u33 33 
« [null[u] - Ceq[u;a} - ..., T - f [u] ]; ,'T - f [cons[subst[xja;car[u] ]; 

sub3t[x;a;cdr[u]]]]] ! 

■ by b) and a), 

m [null[u] -*f[u]; T -* f [cons[subst'[x;a;car[u] ] jsubst[x;a;cdr[u] ] ] ] ] . 

■Actually, we need only write this in the following form: > 
m [null[u] -+f[u]j T — f[subst[x;a;u]]] justifying this seemingly 
backwards step by Lemma 1. Now, replacing u by subst[xjaj;u] 
in d), which we can do by e), since we are in the case yv null[;u3, we 

obtain 

- [null[u] -*f[ui;.T-*f[cons[cartsubat[x;a;u]];NIL]*odr[3ubst[ ; x;a;u]]]] 

- [null[u] -*f[u]; T-*f[Qons[subst[x;a;car[u]];NIL]«3ub3t[xja;-cdr[u]]]] 

by Lemma 1, 

- [nullCu] — f[u];T - f [subst[x;a;cons[car[u] ;NIL] ]*subst[x;a;cdr[u] ] ] 3 

by Lemma % 

- [null[u] - fCu-hS - f[subst[x;a;cons[car[u3;NIL333*f[3ubst[x;a;cdr[u3333 

by the distributivity of f over concatenation. 

Thus f[subst[x;a;u3 3 also can be transformed into the required form 
satisfying the functional equatlor F[xja;u}, and, the proof of Theorem 8 
is complete. . Q> - ^ 

The proof of Theorem 8, though lengthy, is a good example of the 
method and application of recursion induction. A few comments should 
be made about the particular content of this theorem and its proof: 

1) The result Is non-intuitive, at least more so than the other, 

more specific results of this paper. 
2) The function sq[u] satisfies the hypotheses of Theorem 8, for 
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it is distributive over concatenation by Theorem 7, and null sq[u] implies 
null[u], as noted in the body of the proof of Theorem 7« Therefore we ~~ 
have the corollary: sub3t[x;a;3q[u] ] » sq[subst[x;a;u] ] . 
3. We must be careful about our definition of a function whose domain is 
true lists; Sq[u] certainly suffices, but problems may arise. The next 
section of this paper is devoted to this topic. 

Consider the simple minded function which inserts the list u before 
every element of a list v. For example, if U,(A,B),C) were v, and u 
were (p,E), we would obtain 

(D,E,A,D,E,tt,B),D,E,C). 

Such a function could perhaps be considered as a function merely of 

the list. v, for the list u is fixed. (The list u plays the role of the 

"constant" mentioned in the statement of Theorem 8.)" 

As such, the function would satisfy the hypotheses of Theorem 8, for it 

will be seen (Theorem 9) that it is distributive over concatenation, 

and the condition ^[null[f [u]] A/vnull[u]] will be satisfied by 

the formulation of the definition of our function. Yet the conclusion 

of Theorem 8 is not valid in this case. (This will follow from Theorem 10.) 

The reason is that the function is not merely a function on lists v 
but on lists u and v.j i.e., its domain is the cartesian product of the 
space of true lists with itself. 

The tale is told of the freshman who asked why we do not. write 
f (3,x) ■ 3x instead of f (x) - 3x. The answer to his question is that 3x 
13 merely an abbreviation for the operation x + x + x; or expressed 
in different words, the notation can be justified by the fact that 
polynomials in one indeterminate with coefficients in the real numbers 
indeed form a ring* In oar. example we have no. such abbreviation, no 
such algebraio structure. Thus we cannot suppress the u, and we 
must define: ."%, 

simf[u,v] - [hull[v] -* NILj T -*■ u*cons[car[v];NIL]*slmf [u;cdr[v] ] ] 
as our function. We will assume u is also a true list, and/\mull[u] . 

We will now prove the Theorems 9 and 10 referred to above. First 
we need three lemmas. 

Lemma 11: If ~null[v], then caftsimf [u;v]] » car[u] 

Proof: car[simf [u;v]] « v _ 

- car[null[v] -+ ..., T"*u * oons[car[v], NIL] * simf [ujcdr[v] ] 3 

» car[u * ....] - car(u] (since '•null [u] by convention) 

.-•■;* Q» E « D » 

Lemma 12:_ Iffv/ null[v], then cdr[3imf [u;v]] - l 
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Lemma i:?: If/vnull[v], then cdr[slmf [u; v] ] - 

cdr[u]*cons[car[v3;NIL3*simf[u;cdr[v3 3 
Proof: cdr[simf [u;v}J - 

■ cdr\null[v] -* ..., T - u*cons[car[v3 ,NIL}*slmf [u;cdr[v] ] ] 
« cdrLu*cona[car[v3;NIL]*3imf[u;cdr[v]]] 

= cdr[u]*cona[car[v];NIL]*aImf[ujcdr[v]] 

Q. E. D. 
Lemma_ 13: simf [u;cons[v;w3 ] » u* cons [v; NIL] *simf[u;w3 
Proof: simf [u;cons[v;w3 3 
= [null [cons [...J 3 -► ...j T -* u * cons[car[cons[v;w33 jNIL} 

* simf [u;cdr[cons[v;w3 33 3 
» u * cons[v;NIL3*3imf [ujw3 Q. E. D. 

Theorem 9: simf[u;v*w3 - simf [u; v3 *simf [u;w3 
Proof: 3imf[u;v*w] 

« simf[u;[null[v3 — w; T -► cons[car[v3;cdr[v3 *w} 3 3 
-■[nullCv] -*slmf[ujw]j T -* simf [u;cons[car[v3;cdr[v3*w333 
=» [null[v3 -*slmf[u;w3; T -* u * cons [ car [v3;NIL3*slmf [u;cdr[v3*w3 3 

by Lemma 13} 
and simf{u;v3*simf[u;w] 

- [null[simf[ujv33 -* simf [u;w3; T — ■ oons [car [simf [u;v] 3; 

cdr[simf [u;v3 3*simf[u;w33J 
» [null[nuli[v3 -*■ NIL; T--*u*...] -♦ simf [u;w3; T -+ cons [car [u]j 

cdr[u3*cons[car[v3;NIL3*simf[ujcdr[v3 3*simf[u;w3 33 

by Lemmas 11 and 12; and since/Vnull[u3 by convention, 

- [null[v3 -* simf [u;w3; null[u*...3 "* ...; T -* u*cons[car[v3;NIL3 

*simf [u;cdr[ v3 3 *simf [u;w3 3 
since we had an expression of the form cons [ car [u*v3;cdr[u*v3 3, 

- [null[v3 -* simf[u;w3j T -* u*cons[car[v3;NIL3*simf [u;cdr[v3 3*3imf [u;w3 '] 
Thus- both sides satisfy the functional equation 

f[u;v;w] m [null[v] "* simf [u;w};T -♦ u*cons[car[v};NIL3*f Iu;cdr[v3;w3 3 

This establishes the distrlbutivlty of this insertion operation 
over concatenation. Q. E. D. 

Theorem 10: subst[x;a;simf [u; v3 3 - simf [subst[x;a;u3;subst[x;a; v3 3 
Proof: subst[xjaf^tmf [u;v33 

- subst[xja;[null[v3 -* NIL; T t u*cons[car[v];NIL]*simf [u;cdr[v]] j] 

- [null[v3 -+ subst[x;a;NIL3; T — subst[x;a;u*cons[car[v3;NIL3*simf [u;cdr[v3 3 33 
» [null[jv3 -*• NIL; T •+ subst[x;a;u3*3ubst[x;a;cons[car[v3;NIL3 3 * 

substCxj^jslmf fu;cdr[ v3 3 3 3 
by Lemma 4 and repeated application of Theorem 5. 
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This suggests the functional equation: 

f[x;a;u;v] = [null [v] -*• NIL; T -^ubst[xja;u]»subst[xja;con3[car[v] jNIL]] 

* f [x;a;u;cdr[v]]] 
We have simf [aubst[x;a;u];3ubst[x;a;v] ] 
= [null[subst[xja;v]] -+ NIL; T -*- sub3t[x;a;u]*cons[car[sub3t[x;a; v]] j NIL] 

NIL]*simf[subst[x;a;u];cdr[3ubst[x;a;v]]]] 
= [null[v] — NIL; T -+ sub3t[x;a;u] * cons[subst[.xjajcar[-v]] jNIL] 

* simf[subst[x;a;u];subst[x;a;cdr[v3]]] 
by reasoning analogaus to that presented in detail in Theorem 5, 

and by Lemma 1; 

= [null[v] ^NIL; T-* subst[x;a;u]*subst[x;ajcon3[car[v];NIL]] 

* simf[sub3t[x;a;u]jsubst[x;a;cdr[v]]]] 

by Lemma 5. 

This also satisfies the functional equation. 

Q. E. D. 

Theorem 10 
Thi3 completes the work of this paper. One comment alone remains/ 
and that concerns convergence of the functional equations defined. In 
this paper they are all of two forms: 

, 1) (u an S-expresslon) f[ ...ju; ..] -[atom[u] -...,T^g[.'.t;f [...;car[u];l] 

gC.jf [,..;car[u];...];f C. # .;cdr[uJ;. ..];.. ,]]^.];t 'j 

>-f[.. .;cdr[u];...];.V.]] - v> * 
2) (u a true list) f[...ju;..J - [null[u]-*. ..;T - gC'A^f [,..;cdrEu]; /.) 

g[f..jfC..,jodrfu]j..J ;...]! *?*-.Jl: 

where the other arguments of g are well defined specific functions which, 
if they are recursive functions, are known to converge under the 
conditions <vatom[u] or/vnull[u]' respectively. g g itself is a specific 
function which converges under these conditions as long as each of its 
arguments is well defined. Thus it is the construction (or definition) 
of S-expresslons and true lists whfcfch in the long run insures the 
convergence of the functional equations. Any need for a more rigorous 
formulation of convergence for the purposes of this paper is doubtful, 
but one must be aware of the problem of convergence whenever working 
with recursion induction. 
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